home *** CD-ROM | disk | FTP | other *** search
- object FormValue: TFormValue
- Left = 250
- Top = 155
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'FormValue'
- ClientHeight = 116
- ClientWidth = 521
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Str_Panel: TPanel
- Left = 0
- Top = 0
- Width = 521
- Height = 116
- Align = alClient
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 0
- object Org_Label: TLabel
- Left = 12
- Top = 40
- Width = 38
- Height = 13
- Caption = 'Orginal:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object Val_Label: TLabel
- Left = 12
- Top = 64
- Width = 30
- Height = 13
- Caption = 'Value:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object Name_Label: TLabel
- Left = 12
- Top = 16
- Width = 31
- Height = 13
- Caption = 'Name:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object Size_Label: TLabel
- Left = 392
- Top = 16
- Width = 23
- Height = 13
- Caption = 'Size:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object Org_Edit: TEdit
- Left = 56
- Top = 36
- Width = 457
- Height = 21
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 10
- end
- object Ok_Btn: TButton
- Left = 304
- Top = 88
- Width = 65
- Height = 21
- Caption = '&OK'
- Default = True
- ModalResult = 1
- TabOrder = 5
- OnClick = OkApply_Cmd
- end
- object Cancel_Btn: TButton
- Left = 376
- Top = 88
- Width = 65
- Height = 21
- Cancel = True
- Caption = '&Cancel'
- ModalResult = 2
- TabOrder = 6
- end
- object Apply_Btn: TButton
- Left = 448
- Top = 88
- Width = 65
- Height = 21
- Caption = '&Apply'
- TabOrder = 7
- OnClick = OkApply_Cmd
- end
- object Val_Edit: TEdit
- Left = 56
- Top = 60
- Width = 457
- Height = 21
- TabOrder = 0
- end
- object Name_Edit: TEdit
- Left = 56
- Top = 12
- Width = 321
- Height = 21
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 8
- end
- object Save_Btn: TButton
- Left = 128
- Top = 88
- Width = 65
- Height = 21
- Caption = '&Save'
- TabOrder = 3
- OnClick = Save_Cmd
- end
- object Load_Btn: TButton
- Left = 56
- Top = 88
- Width = 65
- Height = 21
- Caption = '&Load'
- TabOrder = 2
- OnClick = Load_Cmd
- end
- object Size_Edit: TEdit
- Left = 424
- Top = 12
- Width = 89
- Height = 21
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 9
- end
- object FileName_Btn: TButton
- Left = 200
- Top = 88
- Width = 65
- Height = 21
- Caption = '&FileName'
- Enabled = False
- TabOrder = 4
- OnClick = FileName_Cmd
- end
- object Val_Rich: TRichEdit
- Left = 56
- Top = 60
- Width = 457
- Height = 21
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- ParentFont = False
- PlainText = True
- TabOrder = 1
- OnKeyPress = Val_Rich_KeyPress
- end
- end
- object OpenDialog1: TOpenDialog
- Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
- Left = 8
- Top = 80
- end
- object SaveDialog1: TSaveDialog
- Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
- Left = 24
- Top = 80
- end
- end
-